ORG100H
.RADIX16D
PRGCIMEQU6080H
PRHOSSZEQU-PRGCIM
USREQU0C860H
JPKEZD
IRQVEGJPIRQVEGE
IRQVEGEEI
RET
IRQPUSHAF
LDA,30h
OUT(0B4),A
POPAF
JRIRQVEG
UBIEX(SP),HL
LD(PAR+1),HL
INCHL
EX(SP),HL
PUSHAF
PARLDA,(0)
CP1FH
JRNZ,UBI1
KEMPOPAF
PUSHHL
PUSHBC
LDHL,0
LDBC,0B5
KEMPCOUT(C),B
INA,(0B6)
RRA
CCF
RLL
LDA,5
ADDA,B
OUT(C),A
INA,(0B6)
RRA
CCF
RLH
INCB
LDA,B
CP5
JRNZKEMPC
LDA,H
ORL
POPBC
POPHL
RET
UBI1CP78
JRNZ,UBI4
UBI2LDA,C
CP01FH
JRZ,KEM
POPAF
UBI3PUSHDE
CALLUBILLC
LDA,D
POPDE
RET
UBI4CP0FEH
JRNZ,INVAL1
POPAF
PUSHBC
LDB,A
CALLUBI3
POPBC
RET
INVAL1CP48H
JRNZ,INVALID
POPAF
PUSHBC
LDB,A
CALLUBI3
POPBC
LDC,A
RET
INVALIDPOPAF
LDA,-1
RET
UBILLCPUSHAF
lda,0ffh
ld(ered+1),a
lda,b
pushBC
pushhl
pushde
exaf,af'
pushaf
exaf,af'
ldb,8
ldde,0ah
ldhl,billtab
bill1rlca
jrc,bill3
exaf,af'
PUSHHL
ldc,0fh
bill2lda,(hl)
inchl
out(0b5),a
ina,(0b5)
and(hl)
cp(hl)
ccf
inchl
rlc
jrnc,bill2
lda,(ered+1)
andc
ld(ered+1),a
POPHL
exaf,af'
bill3addhl,de
djnzbill1
exaf,af'
popaf
exaf,af'
popde
pophl
popbc
EREDLDD,0
POPAF
ret
billtabdb0,4,0,1,8,1,8,20,8,40
db1,1,6,1,6,4,6,10,7,40
db2,4,2,1,9,1,9,4,9,10
db3,4,3,1,5,1,5,4,5,10;6,7,8,9,0
db3,10,3,8,3,20,3,40,3,2;5,4,3,2,1
db2,10,2,8,2,20,2,40,2,2
db1,4,1,10,1,8,1,20,1,40
db0,10,0,8,0,20,0,40,0,80
KEZDLDSP,100H
LDBC,11CH
LDD,38H
EXOS16
LDBC,5FAH
SZABADPUSHBC
EXOS25D
POPBC
INCC
DJNZSZABAD
CALLLPT
LDHL,ALAPLAP
CALLOUTOL
LDHL,FILETAB
TOLTCIKLDE,(HL)
INCHL
LDD,(HL)
INCHL
LDA,D
ORE
JRZ,TOLTVEG
LDA,1
EXOS1
LDE,(HL)
INCHL
LDD,(HL)
INCHL
LDC,(HL)
INCHL
LDB,(HL)
INCHL
INCA
EXOS6
LDA,1
EXOS3
JRTOLTCIK
TOLTVEGDI
LDHL,OUTTAB
CALLOUTOL
LDA,0C3H
LDHL,UBI
LD(20H),A
LD(21H),HL
LDHL,IRQ
LD(38H),A
LD(39H),HL
JPUSR
.RADIX16D
OUTOLLDB,(HL)
INCHL
OUTCIKLDC,(HL)
INCHL
OUTI
JRNZ,OUTCIK
RET
.RADIX10D
LPTLDA,0FFH
OUT(0B2H),A
LDA,192D
ldde,8000h
exx
LDDE,4000H
ldhl,8004h
ldbc,13
lpt1exaf,af'
exx
ldhl,line
ldbc,16
ldir
exx
ld(hl),e
inchl
lda,d
rra
rra
rra
and3
or58H
ld(hl),a
inchl
ld(hl),e
inchl
ld(hl),d
addhl,bc
incd
lda,d
and7
jrnz,lpt2
lda,e
adda,32
lde,a
ccf
sbca,a
and0f8h
adda,d
ldd,a
lpt2exaf,af'
deca
jrnz,lpt1
exx
ldhl,sync
CALLSORRAK
LDC,16
LDIR
LDA,6
SORCIKCALLSORRAK
DECA
JRNZ,SORCIK
LDHL,LPTPORT
JPOUTOL
SORRAKLDC,4
LDIR
LDB,12
EXDE,HL
SORRAK1LD(HL),C
INCHL
DJNZSORRAK1
EXDE,HL
RET
LINEdb255,14h,15,2fh,0,0,0,0
SZINEKDEFB0,0C4H,41H,5,42H,6,43H,7
syncdb0f5h,2,0,0
db247,8,11,11,0b8h,0feh
db0e9h,1,0,216,216,0,0,0,0,0
db217,12h,63,0
db253,16,63,0
db252,16,6,63
db255,90h,63,32
db252,12h,6,63
db207,13h,63,0
.RADIX16D
OUTTABDB5
DW0FBB3H,30B4H,0EBFH,18A8H,18ACH
LPTPORTDB2
DW82H,0CC83H
ALAPLAPDB3
DW0FDB1H,0FAB2H,0FBB3H
FILETABDWSCR1,4000H,1B00H
DWCHARS,3D00H,300H
DWPRG,PRGCIM,-PRGCIM
DWSCR2,4000H,1B00H
DW0
PRGDB3,"PRG"
SCR1DB4,"SCR1"
SCR2DB4,"SCR2"
CHARSDB5,"CHARS"